home *** CD-ROM | disk | FTP | other *** search
/ Focus for Success / Focus for Success.iso / pc / game2.dxr / 00091_Field_button 6 =13.txt < prev    next >
Text File  |  1995-02-28  |  1KB  |  49 lines
  1. on mouseUp
  2.   PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
  3.   PUT THE SHORT NAME OF ME INTO X3
  4.   IF X3=CARD FLD ANSWER1 THEN
  5.     PUT LINE 1 OF CARD FLD TIME INTO A
  6.     PUT LINE 2 OF CARD FLD TIME INTO B
  7.     PUT(B-A) INTO T1
  8.     PUT LINE 1 OF CARD FLD COUNT INTO X
  9.     PUT CARD FLD SECONDS INTO Y
  10.     IF Y-X<0 THEN
  11.       SHOW CARD FLD "GAME OVER"
  12.       WAIT 2 SECONDS
  13.       HIDE CARD FLD "GAME OVER"
  14.       CLICK AT LOC OF CARD BUTTON SCORE
  15.       EXIT MOUSEUP
  16.     END IF
  17.     
  18.     PUT 60*(Y-X) INTO T2
  19.     IF T1<T2 THEN
  20.       PUT THE NUMBER OF LINES IN CARD FLD SUBJECT2 INTO CT
  21.       ADD 1 TO LINE 1 OF CARD FLD COUNT4
  22.       PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT2
  23.       PUT 0 INTO LINE 2 OF CARD FLD COUNT5
  24.       SHOW CARD FLD "CORRECT"
  25.       PLAY BOING
  26.       WAIT 30
  27.       HIDE CARD FLD CORRECT
  28.     END IF
  29.     IF T1>T2 THEN
  30.       SHOW CARD FLD SORRY
  31.       WAIT 3 SECONDS
  32.       HIDE CARD FLD SORRY
  33.     END IF
  34.   END IF
  35.   
  36.   IF X3<>CARD FLD ANSWER1 THEN
  37.     SHOW CARD FLD "WRONG"
  38.     REPEAT WITH I=1 TO 5
  39.       HIDE CARD BUTTON I
  40.     END REPEAT
  41.     HIDE CARD FLD "WRONG"
  42.     ADD 1 TO LINE 1 OF CARD FLD COUNT5
  43.   END IF
  44.   
  45.   
  46.   CLICK AT LOC OF CARD BUTTON START
  47.   
  48.   
  49. end mouseUp